home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp2.arc / PIBDWLOC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-11  |  1.0 KB  |  38 lines
  1.  
  2. BEGIN (* PibDownLoad *)
  3.                                    (* Use file time provided by sender *)
  4.                                    (* by default.                      *)
  5.    Use_Time_Sent := TRUE;
  6.                                    (* Get protocol if necessary *)
  7.  
  8.    IF Transfer_Protocol = None THEN
  9.       Transfer_Protocol := Get_Download_Protocol;
  10.  
  11.                                    (* Perform transfer          *)
  12.    CASE Transfer_Protocol Of
  13.  
  14.       Ascii:          Receive_Ascii_File;
  15.  
  16.       Xmodem_Chk,
  17.       Modem7_CRC,
  18.       Telink,
  19.       Modem7_Chk,
  20.       Ymodem_Batch,
  21.       Ymodem,
  22.       Xmodem_Crc:     Do_Xmodem_Download( Transfer_Protocol );
  23.  
  24.       Kermit:         Receive_Kermit_File;
  25.  
  26.       ELSE ;
  27.  
  28.    END  (* CASE *);
  29.                                    (* Indicate end of transfer *)
  30.    IF ( NOT Silent_Mode ) THEN
  31.       FOR I := 1 TO Transfer_Bells DO
  32.          BEGIN
  33.             WRITE( CHR( BELL ) );
  34.             DELAY( 250 );
  35.          END;
  36.  
  37. END   (* PibDownLoad *);
  38.